home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / apr94 / lc_fig08.gif < prev    next >
Graphics Interchange Format  |  1996-07-10  |  26.1 KB  |  640x468  |  4-bit (5 colors)
   ocr: MENUZELIbraryl.aryltaformLoader proc aopenForm(aFile String, > Name of: form file: aTitle: String) ; Title for: form: window String Non-null when form: couldn't be loaded var FCrntForm Form Handle to form: nErr Smallint Error number: For: display in aErr aErr String Error message enduar aErr == : try if not: FCrntForm.open aFile ) then nErr = errorcode() aErr = *>" + errorMessage0) aErr = "Cannot: open: *E + aTitle + *"AnFile: "+ aFile*"-inParadox error: :: +. strval(nerr) +: aErr else KCrntForn.setritied alitle ) endif ;not: FCrntForm.open aFile ) onFail aErr = "Error: occured. when trying to ...